home *** CD-ROM | disk | FTP | other *** search
/ The Fatted Calf / The Fatted Calf.iso / Applications / Audio / FrontEnd / Source / GNULicense.m < prev    next >
Encoding:
Text File  |  1990-04-16  |  2.7 KB  |  80 lines
  1. // Copyright (C) 1989 Jacob Gore
  2. // 
  3. // This file is part of GNULicense, a package to ease the inclusion
  4. // of the GNU General Public License into NextStep applications.
  5. // 
  6. //     This program is free software; you can redistribute it and/or modify
  7. //     it under the terms of the GNU General Public License as published by
  8. //     the Free Software Foundation; either version 1, or (at your option)
  9. //     any later version.
  10. // 
  11. //     This program is distributed in the hope that it will be useful,
  12. //     but WITHOUT ANY WARRANTY; without even the implied warranty of
  13. //     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14. //     GNU General Public License for more details.
  15. // 
  16. //     You should have received a copy of the GNU General Public License
  17. //     along with this program; if not, write to the Free Software
  18. //     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA
  19. //     or send electronic mail to Jacob Gore <jacob@gore.com>.
  20.  
  21. // The code to print the License leaves much to be desired.  I have left my
  22. // most successful attempts at providing the user with the printing interface
  23. // that is supposed to be the norm on the NeXT (put up a PrintPanel, etc.) in
  24. // this file, commented out.  If anybody can do it right, please send me the
  25. // code!
  26. //
  27. // Jacob Gore <jacob@gore.com>
  28. /*---------------------------------------------------------------------------
  29. April, 1990
  30. This source code has been locally modified.  The initial modifications are
  31. summarized below.  Future modifications will appear in the RCS log entries.
  32.  
  33. Source modifications
  34.   April 1, 1990 (Rex Pruess)
  35.     o Removed all code associated with printing.  Users can cut/paste if
  36.       they desire to print the license.
  37.     o Changed load to use "withNames:NO" for minor performance gain.
  38.     o Changed "panel" to "gnuPanel".
  39. ---------------------------------------------------------------------------
  40. Rex Pruess  <rpruess@umaxc.weeg.uiowa.edu>
  41.  
  42. $Header: /rpruess/apps/Remotes/RCS/GNULicense.m,v 1.1 90/04/10 14:20:32 rpruess Exp $
  43. -----------------------------------------------------------------------------
  44. $Log:    GNULicense.m,v $
  45. Revision 1.1  90/04/10  14:20:32  rpruess
  46. Initial revision
  47.  
  48. -----------------------------------------------------------------------------*/
  49.  
  50. /* GNULicense class header file */
  51. #import "GNULicense.h"
  52.  
  53. /* Appkit header files */
  54. #import <appkit/Application.h>
  55. #import <appkit/Panel.h>
  56.  
  57. @implementation GNULicense
  58.  
  59. + new
  60. {
  61.     self = [super new];
  62.     [NXApp loadNibSection:"GNULicense.nib" owner:self withNames:NO];
  63.     [gnuPanel setMiniwindowIcon:"app"];
  64.     return self;
  65. }
  66.  
  67. - showLicense:sender
  68. {
  69.     [gnuPanel makeKeyAndOrderFront:sender];
  70.     return self;
  71. }
  72.  
  73. - setGnuPanel:anObject
  74. {
  75.     gnuPanel = anObject;
  76.     return self;
  77. }
  78.  
  79. @end
  80.